#!/usr/bin/perl

#http://listen.di.fm/public3/latinhouse.pls
use LWP::Simple;

my $text;
{
	local $/;
	$text = <DATA>;
}
while($text =~ /http:\/\/listen.di.fm\/public3\/([^\.]+)\.pls/g){
	my $file = $1;
	print $file,"\n";
	getstore("http://listen.di.fm/public3/$file.pls",$file.".pls");
}

__DATA__


